   1 .
   2 .TAPE input / OUTPUT
   3 .MSK 1980
  10 B=20250;C=-12843;gosub 30;C=8218;gosub 30;C=28210;gosub 30;C=-11954;gosub 30;C=201;gosub 30
  20 goto 40
  30 %(B)=C;B=B+2;return 
  40 print "input MODE
  60 for I=Xto Y;CALL(20250);TV=A;@(I)=A;next I
  70 :return 
  80 print "WRITE MODE
  90 gosub 200
 100 input "NT SPEED-START RECORDING"NT
 110 :print 
 120 for I=Xto Y;TV=@(I);next I
 130 :return 
 140 NT=1;STOP
 200 input "START COUNT?"X
 210 input "END COUNT?"Y
 220 return 
>:return ;NT=1